Attribute VB_Name = "modCustomer"
Public Sub SwitchFranz()

    SetProfile ("Franz")

End Sub
